home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / rexx / plstrain.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  689b  |  30 lines
  1. /* Ami2d init script for plane strain problems */
  2.  
  3. address ami2d
  4.  
  5. 'plane'
  6. 'problem(struct)'
  7. 'set plane strain'
  8.  
  9. 'set epsx=x1+(x1*x1+x2*x2)/2'
  10. 'set epsy=y2+(y1*y1+y2*y2)/2'
  11. 'set epsz=0.0'
  12. 'set gamxy=x2+y1+x1*y1+x2*y2'
  13. 'set gam12=(0.25*(epsx-epsy)^2+0.25*gamxy^2)^0.5'
  14. 'set eps1=0.5*(epsx+epsy)+gam12'
  15. 'set eps2=0.5*(epsx+epsy)-gam12'
  16. 'set eps3=0.0'
  17.  
  18. 'set sigx=c1*epsx+c5*epsy+c10*gamxy-f1'
  19. 'set sigy=c5*epsx+c2*epsy+c9*gamxy-f2'
  20. 'set sigz=c8*epsx+c6*epsy+c7*gamxy-f1'
  21. 'set tauxy=c10*epsx+c9*epsy+c4*gamxy'
  22. 'set tau12=(0.25*(sigx-sigy)^2+tauxy^2)^0.5'
  23. 'set sig1=0.5*(sigx+sigy)+tau12'
  24. 'set sig2=0.5*(sigx+sigy)-tau12'
  25. 'set sig3=sigz'
  26. 'set sigh=(sigx+sigy+sigz)/3'
  27. 'set sigd=sig1-sigh'
  28.  
  29. exit
  30.